home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Interfaces / PInterfaces / ToolUtils.p < prev    next >
Encoding:
Text File  |  1995-07-06  |  3.7 KB  |  175 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        ToolUtils.p
  3.  
  4.      Contains:    Toolbox Utilities Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs@applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. }
  19.  
  20. {$IFC UNDEFINED UsingIncludes}
  21. {$SETC UsingIncludes := 0}
  22. {$ENDC}
  23.  
  24. {$IFC NOT UsingIncludes}
  25.  UNIT ToolUtils;
  26.  INTERFACE
  27. {$ENDC}
  28.  
  29. {$IFC UNDEFINED __TOOLUTILS__}
  30. {$SETC __TOOLUTILS__ := 1}
  31.  
  32. {$I+}
  33. {$SETC ToolUtilsIncludes := UsingIncludes}
  34. {$SETC UsingIncludes := 1}
  35.  
  36.  
  37. {$IFC UNDEFINED __TYPES__}
  38. {$I Types.p}
  39. {$ENDC}
  40. {    ConditionalMacros.p                                            }
  41.  
  42. {$IFC UNDEFINED __OSUTILS__}
  43. {$I OSUtils.p}
  44. {$ENDC}
  45. {    MixedMode.p                                                    }
  46. {    Memory.p                                                    }
  47.  
  48. {$IFC UNDEFINED __TEXTUTILS__}
  49. {$I TextUtils.p}
  50. {$ENDC}
  51. {    Script.p                                                    }
  52. {        Quickdraw.p                                                }
  53. {            QuickdrawText.p                                        }
  54. {        IntlResources.p                                            }
  55. {        Events.p                                                }
  56.  
  57. {$IFC UNDEFINED __FIXMATH__}
  58. {$I FixMath.p}
  59. {$ENDC}
  60. {$IFC OLDROUTINELOCATIONS }
  61.  
  62. {$IFC UNDEFINED __QUICKDRAW__}
  63. {$I Quickdraw.p}
  64. {$ENDC}
  65.  
  66. {$IFC UNDEFINED __ICONS__}
  67. {$I Icons.p}
  68. {$ENDC}
  69. {$ENDC}
  70.  
  71. {$PUSH}
  72. {$ALIGN MAC68K}
  73. {$LibExport+}
  74. {
  75.     Note: 
  76.     
  77.     The following have moved to Icons.h:      PlotIcon and GetIcon
  78.     
  79.     The following have moved to Quickdraw.h: GetPattern, GetIndPattern, GetCursor, ShieldCursor, 
  80.                                              GetPicture, DeltaPoint and ScreenResGetCursor
  81. }
  82.  
  83. TYPE
  84.     Int64Bit = RECORD
  85.         hiLong:                    SInt32;
  86.         loLong:                    UInt32;
  87.     END;
  88.  
  89.  
  90. FUNCTION FixRatio(numer: INTEGER; denom: INTEGER): Fixed;
  91.     {$IFC NOT GENERATINGCFM}
  92.     INLINE $A869;
  93.     {$ENDC}
  94. FUNCTION FixMul(a: Fixed; b: Fixed): Fixed;
  95.     {$IFC NOT GENERATINGCFM}
  96.     INLINE $A868;
  97.     {$ENDC}
  98. FUNCTION FixRound(x: Fixed): INTEGER;
  99.     {$IFC NOT GENERATINGCFM}
  100.     INLINE $A86C;
  101.     {$ENDC}
  102. PROCEDURE PackBits(VAR srcPtr: Ptr; VAR dstPtr: Ptr; srcBytes: INTEGER);
  103.     {$IFC NOT GENERATINGCFM}
  104.     INLINE $A8CF;
  105.     {$ENDC}
  106. PROCEDURE UnpackBits(VAR srcPtr: Ptr; VAR dstPtr: Ptr; dstBytes: INTEGER);
  107.     {$IFC NOT GENERATINGCFM}
  108.     INLINE $A8D0;
  109.     {$ENDC}
  110. FUNCTION BitTst(bytePtr: UNIV Ptr; bitNum: LONGINT): BOOLEAN;
  111.     {$IFC NOT GENERATINGCFM}
  112.     INLINE $A85D;
  113.     {$ENDC}
  114. PROCEDURE BitSet(bytePtr: UNIV Ptr; bitNum: LONGINT);
  115.     {$IFC NOT GENERATINGCFM}
  116.     INLINE $A85E;
  117.     {$ENDC}
  118. PROCEDURE BitClr(bytePtr: UNIV Ptr; bitNum: LONGINT);
  119.     {$IFC NOT GENERATINGCFM}
  120.     INLINE $A85F;
  121.     {$ENDC}
  122. FUNCTION BitAnd(value1: LONGINT; value2: LONGINT): LONGINT;
  123.     {$IFC NOT GENERATINGCFM}
  124.     INLINE $A858;
  125.     {$ENDC}
  126. FUNCTION BitOr(value1: LONGINT; value2: LONGINT): LONGINT;
  127.     {$IFC NOT GENERATINGCFM}
  128.     INLINE $A85B;
  129.     {$ENDC}
  130. FUNCTION BitXor(value1: LONGINT; value2: LONGINT): LONGINT;
  131.     {$IFC NOT GENERATINGCFM}
  132.     INLINE $A859;
  133.     {$ENDC}
  134. FUNCTION BitNot(value: LONGINT): LONGINT;
  135.     {$IFC NOT GENERATINGCFM}
  136.     INLINE $A85A;
  137.     {$ENDC}
  138. FUNCTION BitShift(value: LONGINT; count: INTEGER): LONGINT;
  139.     {$IFC NOT GENERATINGCFM}
  140.     INLINE $A85C;
  141.     {$ENDC}
  142. FUNCTION SlopeFromAngle(angle: INTEGER): Fixed;
  143.     {$IFC NOT GENERATINGCFM}
  144.     INLINE $A8BC;
  145.     {$ENDC}
  146. FUNCTION AngleFromSlope(slope: Fixed): INTEGER;
  147.     {$IFC NOT GENERATINGCFM}
  148.     INLINE $A8C4;
  149.     {$ENDC}
  150. {$IFC GENERATING68K }
  151. PROCEDURE LongMul(a: LONGINT; b: LONGINT; VAR result: Int64Bit);
  152.     {$IFC NOT GENERATINGCFM}
  153.     INLINE $A867;
  154.     {$ENDC}
  155. {$ENDC}
  156. FUNCTION HiWord(x: LONGINT): INTEGER;
  157.     {$IFC NOT GENERATINGCFM}
  158.     INLINE $A86A;
  159.     {$ENDC}
  160. FUNCTION LoWord(x: LONGINT): INTEGER;
  161.     {$IFC NOT GENERATINGCFM}
  162.     INLINE $A86B;
  163.     {$ENDC}
  164.  
  165. {$ALIGN RESET}
  166. {$POP}
  167.  
  168. {$SETC UsingIncludes := ToolUtilsIncludes}
  169.  
  170. {$ENDC} {__TOOLUTILS__}
  171.  
  172. {$IFC NOT UsingIncludes}
  173.  END.
  174. {$ENDC}
  175.